unit U_fm_cad00;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ImgList,
  Vcl.Imaging.jpeg, Vcl.ExtCtrls, Vcl.ComCtrls, Vcl.ToolWin;

type
  Tfm_cad00 = class(TForm)
    Image2: TImage;
    ImageList1: TImageList;
    q: TImage;
    Label3: TLabel;
    Label1: TLabel;
    pnl2: TPanel;
    tlb1: TToolBar;
    btn_1: TToolButton;
    btn_2: TToolButton;
    btn_3: TToolButton;
    btn_4: TToolButton;
    btn_5: TToolButton;
    btn_disciplinas: TToolButton;
    btn_mensalidade: TToolButton;
    btn_fluxo: TToolButton;
    btn_matricula: TToolButton;
    btn_nota: TToolButton;
    btn_avaliacao: TToolButton;
    btn_lista: TToolButton;
    btn_relatorio: TToolButton;
    ToolButton11: TToolButton;
    btn_sair: TToolButton;
    procedure FormShow(Sender: TObject);
    procedure btn_sairClick(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_cad00: Tfm_cad00;

implementation

{$R *.dfm}

procedure Tfm_cad00.btn_sairClick(Sender: TObject);
begin
Close;
end;

procedure Tfm_cad00.FormShow(Sender: TObject);

var
  r: TRect;
begin
  Borderstyle := bsNone;
  SystemParametersInfo(SPI_GETWORKAREA, 0, @r,0) ;
  SetBounds(r.Left, r.Top, r.Right-r.Left, r.Bottom-r.Top);
  AnimateWindow(Self.Handle, 300, AW_HOR_NEGATIVE);
end;

procedure Tfm_cad00.ToolButton7Click(Sender: TObject);
begin
Close;
end;

end.
